برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
25 خرداد 1389برچسب:, :: 2:55 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

به روش زیر عمل کنید

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

بعد از معرفی تابع بالادستور زیر رادر یک دکمه بنویسید

Dim A as Long
Private Sub Command1_Click()
     A = timeGetTime
     Text1.Text = A
End Sub

موفق باشید

25 خرداد 1389برچسب:, :: 12:4 قبل از ظهر :: نويسنده : حسام بخشعلی زاده

API تغییر برجسب درایو

این ای پی ای نام برچسب داریو شما را تغییر می دهد

برای این منظور دستور زیر را در یک ماژول بنویسد

Public Declare Function SetVolumeLabelA  Lib "kernel32.dll" (ByVal lpRootName  As String,
ByVal lpVolumeName As String) As Long

 : lpRootName مسیر پوشه:مثل درایو :\C

VolumeNameنام برچسب "ویژالبیسیک"

بعد دستور زیر را در یک دکمه یا فرم لود بنویسید

Dim A As Long
     Private Sub Commad1_Click()
     A = SetVolumeLabelA("C:\", "VisualBasic")
End Sub

موفق باشید

منتظر API بعدی باشید

25 خرداد 1389برچسب:, :: 2:49 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

امروز کد یه دفتر چه تلفن خوب با امکانات خوب گذاشتم که لذتش رو ببرین

نظر هم بدین ممنون

Vb6_Source

ددانلود کد سورس

موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 44
بازدید دیروز : 2
بازدید هفته : 44
بازدید ماه : 156
بازدید کل : 222909
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1